unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls,HSignEdit, Buttons;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    Panel3: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    RichEdit1: TRichEdit;
    Panel4: TPanel;
    Panel5: TPanel;
    RichEdit2: TRichEdit;
    TabSheet3: TTabSheet;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }

    HSignEdit : THSignCustomEdit;
    HSignEditList : THSignEditList;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  SignEdit : THSignEdit;
begin
  HSignEdit := THSignEdit.Create(Self);
  HSignEdit.Parent := Panel4;
  HSignEdit.Align := alClient;

  HSignEditList := THSignEditList.Create(Self);
  HSignEditList.Parent := TabSheet3;
  HSignEditList.Align := alClient;

  SignEdit := THSignEdit.Create(Self);
  SignEdit.Parent := TabSheet3;
  HSignEditList.AddItem('1',SignEdit);

  SignEdit := THSignEdit.Create(Self);
  SignEdit.Parent := TabSheet3;
  HSignEditList.AddItem('2',SignEdit);

  
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  HSignEdit.Free;
  HSignEditList.Free;
end;

end.
